home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr11 / gedvw105.zip / HTML.PRG < prev    next >
Text File  |  1995-03-05  |  3KB  |  162 lines
  1. *
  2. *    This creates a sample HTML page for the current FAM record
  3. *
  4. *    for GEDView 1.05
  5. *    michael@genealogy.emcee.com - 3 Mar 1995
  6. *
  7. get line
  8. compare $FIELD3 fam
  9. iffailed
  10.     end
  11. set bell off
  12. remember record
  13. fixpointer #field2
  14. set #outfile $FIELD2
  15. save $OUTFILE.htm "<p>\J"
  16. go husb
  17. iffailed
  18.     goto do_wife
  19. append $OUTFILE.htm "<h2>Husband</h2> "
  20. gosub calls
  21.  
  22. :do_wife
  23.     go wife
  24.     iffailed
  25.         goto continue
  26.     append $OUTFILE.htm "<h2>Wife</h2> "
  27.     gosub calls
  28.  
  29. :continue
  30.     gosub do_marriage
  31.     append $OUTFILE.htm "<p>\J"
  32.     gosub get-children
  33.     append $OUTFILE.htm "<p>\J"
  34.     append $OUTFILE.htm "<address>Compiled by Anybody Jones - anybody@emcee.com</address><p>\J\J"
  35.  
  36. :the-end
  37.     go RECORD
  38.     set bell on
  39.     end
  40.  
  41. :calls
  42.     gosub do_name
  43.     append $OUTFILE.htm "<ul>\J"
  44.     gosub do_birth
  45.     gosub do_death
  46.     gosub do_burial
  47.     append $OUTFILE.htm "</ul>\J"
  48.     go RECORD
  49.     return
  50.  
  51. :do_name
  52.     get name
  53.     iffailed
  54.         return
  55.     fixname $FIELD3
  56.     append $OUTFILE.htm $FULLNAME
  57.     append $OUTFILE.htm "\J"
  58.     return
  59.  
  60. :do_birth
  61.     get birt
  62.     iffailed
  63.         return
  64.     append $OUTFILE.htm "\I<dd>Born "
  65.     gosub get-data
  66.     return
  67.  
  68. :do_marriage
  69.     get marr
  70.     iffailed
  71.         return
  72.     append $OUTFILE.htm "<b>Married</b> "
  73.     gosub get-data
  74.     return
  75.  
  76. :do_death
  77.     get deat
  78.     iffailed
  79.         return
  80.     append $OUTFILE.htm "\I<dd>Died "
  81.     gosub get-data
  82.     return
  83.  
  84. :do_burial
  85.     get buri
  86.     iffailed
  87.         return
  88.     append $OUTFILE.htm "\I<dd>Buried "
  89.     gosub get-data
  90.     return
  91.  
  92. :get-data
  93.     get next line
  94.     compare $FIELD2 date
  95.     ifequal
  96.         gosub print-date
  97.     compare $FIELD2 plac
  98.     iffailed
  99.         return
  100.     append $OUTFILE.htm " at "
  101.     append $OUTFILE.htm $FIELD3
  102.     append $OUTFILE.htm "\J"
  103.     return
  104.  
  105. :print-date
  106.     append $OUTFILE.htm $FIELD3
  107.     get next line
  108.     return
  109.  
  110. :get-children
  111.     get chil
  112.     iffailed
  113.         return
  114.     append $OUTFILE.htm "<h2>Children</h2>\J"
  115.     append $OUTFILE.htm "<ul>\J"
  116.     remember LINENO
  117. :loop
  118.     ifescape
  119.         return
  120.     fixpointer #field3
  121.     go indi $FIELD3
  122.     get name
  123.     fixname $FIELD3
  124.     append $OUTFILE.htm "\I<li>"
  125.     append $OUTFILE.htm $FIRSTNAME
  126.     gosub get-childs-data
  127.     append $OUTFILE.htm "\J"
  128.     go RECORD
  129.     go LINENO
  130.     get next chil
  131.     iffailed
  132.         goto end-loop
  133.     remember LINENO
  134.     goto loop
  135.  
  136. :end-loop
  137.     append $OUTFILE.htm "</ul>\J"
  138.     return
  139.  
  140. :get-childs-data
  141.     get birt
  142.     iffailed
  143.         return
  144.     get next line
  145.     compare $FIELD2 date
  146.     ifequal
  147.         gosub print-date2
  148.     get deat
  149.     iffailed
  150.         return
  151.     append $OUTFILE.htm " - "
  152.     get next line
  153.     compare $FIELD2 date
  154.     ifequal
  155.         append $OUTFILE.htm $FIELD3
  156.     return
  157.  
  158. :print-date2
  159.     append $OUTFILE.htm ", "
  160.     append $OUTFILE.htm $FIELD3
  161.     return
  162.